SUBROUTINE DP86CO()
    COMMON /CONDO8/XOLD,HOUT
    RETURN
END

subroutine CONTD8() 
    COMMON /CONDO8/XOLD,H
    RETURN
END

PROGRAM MAIN
    COMMON /CONDO8/XOLD,H
end PROGRAM
